home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / doc / libgnome2-canvas-perl / examples / canvas.pl < prev    next >
Encoding:
Perl Script  |  2008-06-14  |  1.1 KB  |  39 lines
  1. #!/usr/bin/perl
  2. use strict;
  3. use Gnome2::Canvas;
  4.  
  5. require "canvas-arrowhead.pm";
  6. require "canvas-curve.pm";
  7. require "canvas-features.pm";
  8. require "canvas-fifteen.pm";
  9. require "canvas-primitives.pm";
  10. require "canvas-rich-text.pm";
  11.  
  12. sub create_canvas {
  13.     my $app = Gtk2::Window->new;
  14.  
  15.     $app->signal_connect (delete_event => sub { Gtk2->main_quit; 1 });
  16.  
  17.     my $notebook = Gtk2::Notebook->new;
  18.     $notebook->show;
  19.  
  20.     $app->add ($notebook);
  21.  
  22.     $notebook->append_page (CanvasPrimitives::create (0), Gtk2::Label->new ("Primitives"));
  23.         $notebook->append_page (CanvasPrimitives::create (1), Gtk2::Label->new ("Antialias"));  
  24.     $notebook->append_page (CanvasArrowhead::create (), Gtk2::Label->new ("Arrowhead"));
  25.     $notebook->append_page (CanvasFifteen::create (), Gtk2::Label->new ("Fifteen"));
  26.     $notebook->append_page (CanvasFeatures::create (), Gtk2::Label->new ("Features"));
  27.     $notebook->append_page (CanvasRichText::create (), Gtk2::Label->new ("Rich Text"));
  28.     $notebook->append_page (CanvasBezierCurve::create (), Gtk2::Label->new ("Bezier Curve"));
  29.  
  30.     $app->show;
  31. }
  32.  
  33.  
  34. Gtk2->init;
  35.  
  36. create_canvas ();
  37.  
  38. Gtk2->main;
  39.